home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / common.cst / 00009_buttonLower.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  942 b   |  48 lines
  1. property meNum, myName, meSprite, meMember, meHmember
  2. global monkey, gMovie, gFrame, gmObject
  3.  
  4. on beginSprite me
  5.   meNum = me.spriteNum - 144
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   myName = meSprite.member.name
  9.   meHmember = member(myName&"h", 2)
  10. end
  11.  
  12. on mouseEnter me
  13.   meSprite.member = meHmember
  14. --  updateStage
  15. end
  16.  
  17. on mouseLeave me
  18.   meSprite.member = meMember
  19. --  updateStage
  20. end
  21.  
  22. on mouseUp me
  23.   
  24.   monkey.callFromDownButton(meNum, meSprite) -- skicka kommando till ap-scriptet
  25.   
  26.   
  27.   if myName = "as" then
  28.     gMovie = (the movie).char[1..4]
  29.     if gMovie = "gmis" or gMovie = "gmsl" then
  30.       if voidP(gmObject.xFrame) = 0 then
  31.         gFrame = string(gmObject.xFrame)
  32.       end if
  33.     end if
  34.     if gMovie = "myot" or gMovie = "ingm" then
  35.       gFrame = the frameLabel
  36.     end if
  37.   end if
  38.   
  39.   
  40. end
  41.  
  42.  
  43.  
  44. on GoScript me --g├Ñ, kommandot kommer fr├Ñn ap-scriptet
  45.   sound(2).stop()
  46.   go movie "my"&myName
  47. end
  48.